home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funphone.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.5 KB  |  64 lines
  1. 1  '
  2. 2  '      THIS PROGRAM WAS IN THE JAN '84 ISSUE OF POPULAR COMPUTING
  3. 3  '
  4. 4  '      THERE WERE SOME TYPE ERRORS :
  5. 5  '      LINE 380 SHOULD READ, 380 PRINT MID$(P$,PD*3+1+K(8-I),1);
  6. 6  '      LINE 280 THEY FORGOT THE QUOTE AFTER   (1-8);IL SHOULD READ (1-8)";IL
  7. 7  '      THIS PROGRAM COULD BE FUN WITH SOME MODIFICATION
  8. 8  '
  9. 9  '      TYPED IN BY LOU MORGAN, MADISON I.B.M. PC UG
  10. 10  DEFINT A-Z
  11. 20  DIM K(9)
  12. 30  P$="000111ABCDEFGHIJKLMNOPRSTUVWXY"
  13. 40  PRINT
  14. 50  PRINT "TYPE 1 TO CONVERT PHONE NAME TO NUMBER"
  15. 60  PRINT TAB(6)"2 TO CONVERT PHONE NUMBER TO NAME"
  16. 70  INPUT D$:IF D$="1" THEN 100
  17. 80  IF D$="2" THEN 220
  18. 90  GOTO 40
  19. 100  INPUT "ENTER 7-DIGIT PHONE NAME";PN$
  20. 110  IF LEN(PN$)<>7 THEN 100
  21. 120  CN = 1
  22. 130  C$=MID$(PN$,CN,1)
  23. 140  PS=INSTR(1,P$,C$)
  24. 150  IF PS=0 THEN 180
  25. 160  PD=INT(PS-1)/3
  26. 170  C$=CHR$(PD+48)
  27. 180  PRINT C$;
  28. 190  CN=CN+1:IF CN<=7 THEN 130
  29. 200  PRINT
  30. 210  GOTO 40
  31. 220  INPUT "ENTER 7-DIGIT PHONE NUMBER";PN$
  32. 230  IF LEN(PN$)<>7 THEN 220
  33. 240  CN=1
  34. 250  C$=MID$(PN$,CN,1)
  35. 260  IF C$<"0" OR C$>"9" THEN 220
  36. 270  CN=CN+1:IF CN<=7 THEN 250
  37. 280  INPUT "PRINT HOW MANY PHONE NAMES PER LINE (1-8)";IL
  38. 290  IF IL<1 OR IL>8 THEN 280
  39. 300  INPUT "PRINT HOW MANY LINES BEFORE PAUSING (0 = NO PAUSE)";NP
  40. 310  IT=1
  41. 320  LN=1
  42. 330  FOR X1 = 0 TO 2186
  43. 340  X=X1
  44. 350  GOSUB 480
  45. 360  FOR I = 1 TO 7
  46. 370  PD=VAL(MID$(PN$,I,1))
  47. 380  PRINT MID$(P$,PD*3+1+K(8-I),1);
  48. 390  NEXT I
  49. 400  IF IT<IL THEN IT=IT+1:PRINT " ";: GOTO 460
  50. 410  IT=1
  51. 420  PRINT
  52. 430  IF NP=0 OR LN<NP THEN LN=LN+1:GOTO 460
  53. 440  LN=1
  54. 450  INPUT "PRESS ENTER KEY TO CONTINUE";D$
  55. 460  NEXT X1
  56. 470  END
  57. 480  E=6
  58. 490  N=3 ^ E
  59. 500  K(E+1)=0
  60. 510  IF X>=N THEN X=X-N: K(E+1)=K(E+1)+1: GOTO 510
  61. 520  E=E-1
  62. 530  IF E>=0 THEN 490
  63. 540  RETURN
  64.